home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / dbms_mag / 9108 / olympia1.aug < prev    next >
Text File  |  1991-06-17  |  1KB  |  40 lines
  1. LISTING 1
  2.  
  3. /*************************************************************** 
  4. NovlID.c -- Sample FoxPro API routine from FoxNet(tm) library
  5. (c) 1991, P. L. Olympia, Platinum Software International
  6.  
  7. From Set Expert On Column, DBMS Magazine, 8/91
  8.  
  9. This example returns the station number of a Novell Workstation.
  10. **************************************************************/ 
  11.  
  12. #include <stdio.h> 
  13. #include "pro_ext.h"       /* From FoxPro API set */ 
  14.  
  15. // These next two includes are from Novell 
  16. #include <nit.h> 
  17. #include <niterror.h> 
  18.  
  19. /***************************************************** 
  20.    The API .c function name is C_GetWS()
  21.    The FoxPro function name is NSTATION().
  22.    Function returns a workstation ID number 
  23.  *****************************************************/ 
  24. FAR C_GetWS()
  25. { 
  26.    _RetInt( GetConnectionNumber(), 10); 
  27.         return; 
  28. } 
  29.  
  30. // Here are the usual FoxPro API Structure Tables
  31. FoxInfo _NovlPO[] = { 
  32.     {"NSTATION",  C_GetWS,    0, ""  },
  33. }; 
  34.  
  35. FoxTable _FoxTable = { 
  36.     (FoxTable FAR *)0,  
  37.     sizeof(_NovlPO)/sizeof(FoxInfo), 
  38.     _NovlPO 
  39. }; 
  40.